object ThumbForm: TThumbForm Left = 7 Top = 51 BorderStyle = bsDialog Caption = 'Image pre-viewer' ClientHeight = 352 ClientWidth = 609 Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] Position = poScreenCenter OnActivate = FormActivate OnClose = FormClose PixelsPerInch = 96 TextHeight = 14 object Label1: TLabel Left = 3 Top = 6 Width = 157 Height = 15 AutoSize = False Color = clGray Font.Color = clWhite Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentColor = False ParentFont = False end object Gauge1: TGauge Left = 505 Top = 160 Width = 97 Height = 9 BorderStyle = bsNone ForeColor = clNavy BackColor = clBtnFace Progress = 0 end object Label2: TLabel Left = 496 Top = 62 Width = 112 Height = 14 Alignment = taCenter AutoSize = False Font.Color = clBlack Font.Height = -9 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object StopBtn: TSpeedButton Left = 526 Top = 80 Width = 57 Height = 30 Glyph.Data = { 80010000424D8001000000000000760000002800000014000000140000000100 040000000000F000000000000000000000000000000000000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777700007777711111111177777700007777199999999917777700007771 9999999999917777000077199999999999991777000071999999999999999177 000019999999999999999917000019FFF99F99FFF9F9991700001999F99F99F9 F9F99917000019FFF99F99F9F9FFF917000019F9999F99F9F9F9F917000019FF F9FFF9FFF9FFF917000019999999999999999917000019999999999999999917 0000719999999999999991770000771999999999999917770000777199999999 9991777700007777199999999917777700007777711111111177777700007777 7777777777777777000000000000000000000000000000000000000000000000 00000000} Visible = False OnClick = AbortBtnClick end object Image1: TImage Left = 530 Top = 115 Width = 49 Height = 37 Center = True Picture.Data = {} OnDragDrop = Image1DragDrop OnDragOver = Image1DragOver end object Thumbs: TStringGrid Left = 168 Top = 7 Width = 324 Height = 301 DefaultColWidth = 60 DefaultRowHeight = 50 FixedCols = 0 RowCount = 10 FixedRows = 0 Font.Color = clBlack Font.Height = -9 Font.Name = 'Arial' Font.Style = [] Options = [goVertLine, goHorzLine] ParentColor = True ParentFont = False ScrollBars = ssVertical TabOrder = 0 OnClick = ThumbsClick OnDblClick = ThumbsDblClick OnDragDrop = ThumbsDragDrop OnDragOver = ThumbsDragOver OnDrawCell = ThumbsDrawCell OnKeyDown = ThumbsKeyDown OnMouseDown = ThumbsMouseDown OnMouseMove = ThumbsMouseMove end object DriveComboBox1: TDriveComboBox Left = 7 Top = 322 Width = 148 Height = 21 Color = clBtnFace Font.Color = clBtnText Font.Height = -12 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False TabOrder = 1 OnChange = DriveComboBox1Change OnClick = DriveComboBox1Click end object DirectoryListBox1: TDirectoryListBox Left = 8 Top = 199 Width = 146 Height = 117 Color = clBtnFace Font.Color = clBtnText Font.Height = -12 Font.Name = 'Times New Roman' Font.Style = [] ItemHeight = 16 ParentFont = False TabOrder = 2 OnChange = DirectoryListBox1Change OnClick = DirectoryListBox1Click end object FileListBox1: TFileListBox Left = 8 Top = 54 Width = 144 Height = 141 Hint = 'Drag Image on the grid to create thumbnail' Color = clBtnFace Font.Color = clBtnText Font.Height = -12 Font.Name = 'Times New Roman' Font.Style = [] ItemHeight = 16 Mask = '*.JPG;*.GIF;*.PCX;*.BMP;*.PNG;*.TIF;*.WMF;*.ICO' ParentFont = False ShowGlyphs = True TabOrder = 3 OnChange = FileListBox1Change OnClick = FileListBox1Click OnDblClick = FileListBox1DblClick OnKeyDown = FileListBox1KeyDown OnMouseDown = FileListBox1MouseDown end object ComboBox1: TComboBox Left = 8 Top = 27 Width = 145 Height = 22 Color = clBtnFace DropDownCount = 15 Font.Color = clBtnText Font.Height = -11 Font.Name = 'Times New Roman' Font.Style = [] ItemHeight = 14 Items.Strings = ( '*.JPG;*.GIF;*.PCX;*.BMP;*.PNG;*.TIF;*.WMF;*.ICO' '*.JPG' '*.GIF' '*.PCX' '*.BMP' '*.PNG' '*.TIF' '*.WMF' '*.ICO') ParentFont = False TabOrder = 4 Text = 'Select file type' OnChange = ComboBox1Change OnClick = ComboBox1Click end object PMultiImage2: TPMultiImage Left = 521 Top = 9 Width = 60 Height = 50 Center = True Color = clBtnFace ImageName = 'file not found' ImageDither = True ImageReadRes = lAutoMatic ImageWriteRes = sAutoMatic TifSaveCompress = sNONE JPegSaveQuality = 25 JPegSaveSmooth = 0 TextLeft = 0 TextTop = 0 TextRotate = 0 TabOrder = 6 TabStop = False Visible = False end object GroupBox2: TGroupBox Left = 501 Top = 173 Width = 102 Height = 103 Hint = 'Resolution of the previews' Caption = 'Resolution' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 7 object SaveRes24: TRadioButton Left = 2 Top = 61 Width = 96 Height = 17 Caption = 'True color' TabOrder = 0 OnClick = Saveresclick end object SaveRes8: TRadioButton Left = 2 Top = 37 Width = 96 Height = 17 Caption = '256 colors' TabOrder = 1 OnClick = Saveresclick end object SaveRes4System: TRadioButton Left = 2 Top = 15 Width = 98 Height = 17 Caption = '16 system colors' ParentShowHint = False ShowHint = True TabOrder = 2 OnClick = Saveresclick end object SaveResAuto: TRadioButton Left = 2 Top = 83 Width = 68 Height = 17 Caption = 'Automatic' Checked = True TabOrder = 3 TabStop = True OnClick = Saveresclick end end object PMultiImage1: TPMultiImage Left = 521 Top = 9 Width = 60 Height = 50 Center = True Color = clBtnFace ImageName = 'file not found' ImageDither = True ImageReadRes = lAutoMatic ImageWriteRes = sAutoMatic TifSaveCompress = sNONE JPegSaveQuality = 25 JPegSaveSmooth = 0 Stretch = True TextLeft = 0 TextTop = 0 TextRotate = 0 TabOrder = 5 TabStop = False end object GroupBox1: TGroupBox Left = 500 Top = 288 Width = 104 Height = 56 Caption = 'Optimize previews' TabOrder = 8 object RSpeed: TRadioButton Left = 2 Top = 15 Width = 71 Height = 17 Caption = 'for speed' Checked = True TabOrder = 0 TabStop = True OnClick = RSpeedClick end object RSize: TRadioButton Left = 2 Top = 36 Width = 71 Height = 17 Caption = 'for size' TabOrder = 1 OnClick = RSpeedClick end end object Panel1: TPanel Left = 167 Top = 307 Width = 325 Height = 37 BevelOuter = bvLowered TabOrder = 9 object LoadBtn: TSpeedButton Left = 1 Top = 2 Width = 37 Height = 34 Hint = 'Load all existing thumbs' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777777777777777777777780087777777800000000000087708800888800 880770880888888088077088087888808807708808E78880880770FF00888800 FF0770FFF000000FFF0770000000000000077700780FF0870077777777800877 7777777777777777777777777777777777777777777777777777} ParentShowHint = False ShowHint = True OnClick = LoadBtnClick end object CreateNewKeep: TSpeedButton Left = 37 Top = 2 Width = 37 Height = 34 Hint = 'Create new previews keep old ones' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 77777777777777777777777800000008777777707777777077007770788F8870 008077707777777080807770777887707070777078800870F070777080088070 00F0007008877070770008088770000877770F07700777777777007007777777 7777777777777777777777777777777777777777777777777777} ParentShowHint = False ShowHint = True OnClick = IncAllKeepBtnClick end object CreateNewDelete: TSpeedButton Left = 73 Top = 2 Width = 37 Height = 34 Hint = 'Create new previews and delete old ones' Glyph.Data = { 42010000424D4201000000000000760000002800000011000000110000000100 040000000000CC00000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777700000007000000000000000700000007077770770770770700000007007 7077077077007000000070707777770770707000000070770770707707707000 0000707770770700777070000000707777007777777070000000707777777777 7770700000007077777777700770700000007077777777077070700000007077 7777770770707000000070777777777007707000000070777777777777707000 0000700000000000000070000000777777777777777770000000777777777777 777770000000} ParentShowHint = False ShowHint = True OnClick = CreateNewDeleteClick end object DeleteAllBtn: TSpeedButton Left = 109 Top = 2 Width = 37 Height = 34 Hint = 'Delete all previews' Glyph.Data = { 42010000424D4201000000000000760000002800000011000000110000000100 040000000000CC00000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 777770000000777777777777777770000000777777777777770F700000007777 0F777777777770000000777000F7777770F770000000777000F777770F777000 00007777000F77700F777000000077777000F700F7777000000077777700000F 7777700000007777777000F777777000000077777700000F7777700000007777 7000F70F7777700000007770000F77700F7770000000770000F7777700F77000 00007700F7777777700F70000000777777777777777770000000777777777777 777770000000} ParentShowHint = False ShowHint = True OnClick = DeleteAllBtnClick end object ClearAllBtn: TSpeedButton Left = 145 Top = 2 Width = 37 Height = 34 Hint = 'Clear preview window' Glyph.Data = { 42010000424D4201000000000000760000002800000011000000110000000100 040000000000CC00000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777700000007777777777177777700000007777777771177777100000007777 7777711177717000000077777777771177117000000070000000000011577000 0000707777777775117770000000707007007071511770000000707777777711 771150000000704444445144447510000000774FFFFF15FFF47770000000774F 00F00F00F47770000000774FFFFFFFFFF4777000000077444444444444777000 0000774744744744747770000000774444444444447770000000777777777777 777770000000} ParentShowHint = False ShowHint = True OnClick = ClearAllBtnClick end object CloseBtn: TSpeedButton Left = 287 Top = 2 Width = 37 Height = 34 Hint = 'Close window' Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000 03333377777777777F333301111111110333337F333333337F33330111111111 0333337F333333337F333301111111110333337F333333337F33330111111111 0333337F333333337F333301111111110333337F333333337F33330111111111 0333337F3333333F7F333301111111B10333337F333333737F33330111111111 0333337F333333337F333301111111110333337F33FFFFF37F3333011EEEEE11 0333337F377777F37F3333011EEEEE110333337F37FFF7F37F3333011EEEEE11 0333337F377777337F333301111111110333337F333333337F33330111111111 0333337FFFFFFFFF7F33330000000000033333777777777773330000} Layout = blGlyphTop NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = CancelBtnClick end object AutoLoad: TCheckBox Left = 185 Top = 4 Width = 70 Height = 17 Hint = 'Autoload Previews' Caption = 'Autoload' TabOrder = 0 OnClick = AutoLoadClick end object GPall: TCheckBox Left = 185 Top = 18 Width = 96 Height = 17 Hint = 'In 256 color mode use a shared palette' Caption = 'Use best palette' ParentShowHint = False ShowHint = True TabOrder = 1 OnClick = GPallClick end end end